VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Caricamento"
   ClientHeight    =   1485
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4395
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   1485
   ScaleWidth      =   4395
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton inser 
      Caption         =   "Inserisci"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      TabIndex        =   2
      Top             =   960
      Width           =   2175
   End
   Begin VB.TextBox tempo 
      Height          =   285
      Left            =   1200
      TabIndex        =   1
      Top             =   450
      Width           =   2895
   End
   Begin VB.TextBox nome 
      Height          =   285
      Left            =   1200
      TabIndex        =   0
      Top             =   120
      Width           =   2895
   End
   Begin VB.Label Label2 
      Caption         =   "Tempo"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   480
      Width           =   855
   End
   Begin VB.Label lblnome 
      Caption         =   "Nome"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   735
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cont As Integer
Dim gioc As Integer
Dim rest As Integer
Dim nom As String
Dim temp As String

Private Sub inser_Click()
Dim flag As Boolean
Dim flag2 As Boolean
flag = False
rest = 0
nom = nome.Text
temp = tempo.Text
flag2 = IsNumeric(temp)
For rest = 1 To 10
If nom = nomi(rest) Then
MsgBox ("Errore")
flag = False
rest = 10
Else
flag = True
End If
Next
If flag2 = False Then
MsgBox ("Errore, manca valore numerico")
Else
If flag = True Then
nomi(cont) = nom
tempi(cont) = temp
cont = cont + 1
Form2.Caption = "Carico concorrente " & cont & " di 10"
End If
nome.Text = ""
tempo.Text = ""
If cont = 11 Then
MsgBox ("Caricamento completo")
Unload Me
Form2.Visible = False
Form1.Show
End If
End If
End Sub

Private Sub Form_Load()
cont = 1
Form2.Caption = "Carico concorrente " & cont & " di 10"
End Sub
